home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbmdixpl / about.frm next >
Text File  |  1995-05-07  |  2KB  |  70 lines
  1. VERSION 2.00
  2. Begin Form about 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "About"
  5.    ClientHeight    =   4365
  6.    ClientLeft      =   2730
  7.    ClientTop       =   1830
  8.    ClientWidth     =   5700
  9.    Height          =   4770
  10.    Left            =   2670
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   4365
  13.    ScaleWidth      =   5700
  14.    Top             =   1485
  15.    Width           =   5820
  16.    Begin PictureBox LogoPic 
  17.       AutoSize        =   -1  'True
  18.       BorderStyle     =   0  'None
  19.       Height          =   612
  20.       Left            =   2520
  21.       ScaleHeight     =   615
  22.       ScaleWidth      =   735
  23.       TabIndex        =   2
  24.       Top             =   2400
  25.       Width           =   732
  26.    End
  27.    Begin CommandButton OK 
  28.       Caption         =   "OK"
  29.       Height          =   372
  30.       Left            =   2160
  31.       TabIndex        =   1
  32.       Top             =   3480
  33.       Width           =   1452
  34.    End
  35.    Begin Label AppName 
  36.       Alignment       =   2  'Center
  37.       AutoSize        =   -1  'True
  38.       Caption         =   "AppName"
  39.       Height          =   192
  40.       Left            =   2400
  41.       TabIndex        =   0
  42.       Top             =   480
  43.       Width           =   852
  44.    End
  45. End
  46.  
  47. Sub Form_Load ()
  48.  
  49.     ' set caption
  50.     about.Caption = "About " + App.Title
  51.  
  52.     ' set Logo
  53.     about.LogoPic = MdiForm1.Icon
  54.  
  55.     ' Text
  56.     TheStr$ = App.Title + Chr(10) + Chr(10)
  57.     TheStr$ = TheStr$ + "Copyright <Your Company here> 1993 " + Chr(10) + Chr(10)
  58.     TheStr$ = TheStr$ + "If you like this sample, sent a postcard to :" + Chr(10) + Chr(10)
  59.     TheStr$ = TheStr$ + "Hans-Jochen Schmitt" + Chr(10)
  60.     TheStr$ = TheStr$ + "Paul-Wagner Str. 28" + Chr(10)
  61.     TheStr$ = TheStr$ + "6100 Darmstadt" + Chr(10)
  62.     TheStr$ = TheStr$ + "Germany" + Chr(10)
  63.     about.AppName = TheStr$
  64. End Sub
  65.  
  66. Sub OK_Click ()
  67.     Unload about
  68. End Sub
  69.  
  70.